home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue40 / Clinic / ScrollingStringGrid.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1998-09-29  |  985 b   |  49 lines
  1. unit ScrollingStringGrid;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Grids;
  8.  
  9. type
  10.   TScrollingStringGrid = class(TStringGrid)
  11.   public
  12.     procedure WMHScroll(var Msg: TWMHScroll);
  13.       message wm_HScroll;
  14.     procedure WMVScroll(var Msg: TWMVScroll);
  15.       message wm_VScroll;
  16.   end;
  17.  
  18. procedure Register;
  19.  
  20. implementation
  21.  
  22. uses
  23.   GridTestU;
  24.  
  25. procedure Register;
  26. begin
  27.   RegisterComponents('Samples', [TScrollingStringGrid]);
  28. end;
  29.  
  30. { TScrollingStringGrid }
  31.  
  32. procedure TScrollingStringGrid.WMHScroll(var Msg: TWMHScroll);
  33. begin
  34.   inherited;
  35.   if Msg.ScrollCode = sb_ThumbTrack then
  36.     Perform(wm_HScroll,
  37.       MakeLong(sb_ThumbPosition, Msg.Pos), Msg.ScrollBar)
  38. end;
  39.  
  40. procedure TScrollingStringGrid.WMVScroll(var Msg: TWMVScroll);
  41. begin
  42.   inherited;
  43.   if Msg.ScrollCode = sb_ThumbTrack then
  44.     Perform(wm_VScroll,
  45.       MakeLong(sb_ThumbPosition, Msg.Pos), Msg.ScrollBar)
  46. end;
  47.  
  48. end.
  49.